/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / op / split.t

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 73 70 6c 69 74 2e | 74 00 00 00 00 00 00 00 |..split.|t.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 f6 00 | 00 01 ac a6 eb eb 22 a6 |........|......".|
|00000060| eb eb 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..".....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d3 2e 00 00 |........|........|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 73 70 6c | 69 74 2e 74 2c 76 20 34 |der: spl|it.t,v 4|
|000000a0| 2e 30 20 39 31 2f 30 33 | 2f 32 30 20 30 31 3a 35 |.0 91/03|/20 01:5|
|000000b0| 34 3a 34 32 20 6c 77 61 | 6c 6c 20 4c 6f 63 6b 65 |4:42 lwa|ll Locke|
|000000c0| 64 20 24 0d 0d 70 72 69 | 6e 74 20 22 31 2e 2e 31 |d $..pri|nt "1..1|
|000000d0| 32 5c 6e 22 3b 0d 0d 24 | 46 53 20 3d 20 27 3a 27 |2\n";..$|FS = ':'|
|000000e0| 3b 0d 0d 24 5f 20 3d 20 | 27 61 3a 62 3a 63 27 3b |;..$_ = |'a:b:c';|
|000000f0| 0d 0d 28 24 61 2c 24 62 | 2c 24 63 29 20 3d 20 73 |..($a,$b|,$c) = s|
|00000100| 70 6c 69 74 28 24 46 53 | 2c 24 5f 29 3b 0d 0d 69 |plit($FS|,$_);..i|
|00000110| 66 20 28 6a 6f 69 6e 28 | 27 3b 27 2c 24 61 2c 24 |f (join(|';',$a,$|
|00000120| 62 2c 24 63 29 20 65 71 | 20 27 61 3b 62 3b 63 27 |b,$c) eq| 'a;b;c'|
|00000130| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 31 5c 6e |) {print| "ok 1\n|
|00000140| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|00000150| 22 6e 6f 74 20 6f 6b 20 | 31 5c 6e 22 3b 7d 0d 0d |"not ok |1\n";}..|
|00000160| 40 61 72 79 20 3d 20 73 | 70 6c 69 74 28 2f 3a 62 |@ary = s|plit(/:b|
|00000170| 3a 2f 29 3b 0d 69 66 20 | 28 6a 6f 69 6e 28 22 24 |:/);.if |(join("$|
|00000180| 5f 22 2c 40 61 72 79 29 | 20 65 71 20 27 61 61 3a |_",@ary)| eq 'aa:|
|00000190| 62 3a 63 63 27 29 20 7b | 70 72 69 6e 74 20 22 6f |b:cc') {|print "o|
|000001a0| 6b 20 32 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 2\n";}| else {p|
|000001b0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 32 5c 6e |rint "no|t ok 2\n|
|000001c0| 22 3b 7d 0d 0d 24 5f 20 | 3d 20 22 61 62 63 5c 6e |";}..$_ |= "abc\n|
|000001d0| 22 3b 0d 40 78 79 7a 20 | 3d 20 28 40 61 72 79 20 |";.@xyz |= (@ary |
|000001e0| 3d 20 73 70 6c 69 74 28 | 2f 2f 29 29 3b 0d 69 66 |= split(|//));.if|
|000001f0| 20 28 6a 6f 69 6e 28 22 | 2e 22 2c 40 61 72 79 29 | (join("|.",@ary)|
|00000200| 20 65 71 20 22 61 2e 62 | 2e 63 2e 5c 6e 22 29 20 | eq "a.b|.c.\n") |
|00000210| 7b 70 72 69 6e 74 20 22 | 6f 6b 20 33 5c 6e 22 3b |{print "|ok 3\n";|
|00000220| 7d 20 65 6c 73 65 20 7b | 70 72 69 6e 74 20 22 6e |} else {|print "n|
|00000230| 6f 74 20 6f 6b 20 33 5c | 6e 22 3b 7d 0d 0d 24 5f |ot ok 3\|n";}..$_|
|00000240| 20 3d 20 22 61 3a 62 3a | 63 3a 3a 3a 3a 22 3b 0d | = "a:b:|c::::";.|
|00000250| 40 61 72 79 20 3d 20 73 | 70 6c 69 74 28 2f 3a 2f |@ary = s|plit(/:/|
|00000260| 29 3b 0d 69 66 20 28 6a | 6f 69 6e 28 22 2e 22 2c |);.if (j|oin(".",|
|00000270| 40 61 72 79 29 20 65 71 | 20 22 61 2e 62 2e 63 22 |@ary) eq| "a.b.c"|
|00000280| 29 20 7b 70 72 69 6e 74 | 20 22 6f 6b 20 34 5c 6e |) {print| "ok 4\n|
|00000290| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|000002a0| 22 6e 6f 74 20 6f 6b 20 | 34 5c 6e 22 3b 7d 0d 0d |"not ok |4\n";}..|
|000002b0| 24 5f 20 3d 20 6a 6f 69 | 6e 28 27 3a 27 2c 73 70 |$_ = joi|n(':',sp|
|000002c0| 6c 69 74 28 27 20 27 2c | 22 20 20 20 20 61 20 62 |lit(' ',|"    a b|
|000002d0| 5c 74 63 20 5c 74 20 64 | 20 22 29 29 3b 0d 69 66 |\tc \t d| "));.if|
|000002e0| 20 28 24 5f 20 65 71 20 | 27 61 3a 62 3a 63 3a 64 | ($_ eq |'a:b:c:d|
|000002f0| 27 29 20 7b 70 72 69 6e | 74 20 22 6f 6b 20 35 5c |') {prin|t "ok 5\|
|00000300| 6e 22 3b 7d 20 65 6c 73 | 65 20 7b 70 72 69 6e 74 |n";} els|e {print|
|00000310| 20 22 6e 6f 74 20 6f 6b | 20 35 20 23 24 5f 23 5c | "not ok| 5 #$_#\|
|00000320| 6e 22 3b 7d 0d 0d 24 5f | 20 3d 20 6a 6f 69 6e 28 |n";}..$_| = join(|
|00000330| 27 3a 27 2c 73 70 6c 69 | 74 28 2f 20 2a 2f 2c 22 |':',spli|t(/ */,"|
|00000340| 66 6f 6f 20 20 62 61 72 | 20 62 69 65 5c 74 64 6f |foo  bar| bie\tdo|
|00000350| 6c 6c 22 29 29 3b 0d 69 | 66 20 28 24 5f 20 65 71 |ll"));.i|f ($_ eq|
|00000360| 20 22 66 3a 6f 3a 6f 3a | 62 3a 61 3a 72 3a 62 3a | "f:o:o:|b:a:r:b:|
|00000370| 69 3a 65 3a 5c 74 3a 64 | 3a 6f 3a 6c 3a 6c 22 29 |i:e:\t:d|:o:l:l")|
|00000380| 0d 09 7b 70 72 69 6e 74 | 20 22 6f 6b 20 36 5c 6e |..{print| "ok 6\n|
|00000390| 22 3b 7d 20 65 6c 73 65 | 20 7b 70 72 69 6e 74 20 |";} else| {print |
|000003a0| 22 6e 6f 74 20 6f 6b 20 | 36 5c 6e 22 3b 7d 0d 0d |"not ok |6\n";}..|
|000003b0| 24 5f 20 3d 20 6a 6f 69 | 6e 28 27 3a 27 2c 20 27 |$_ = joi|n(':', '|
|000003c0| 66 6f 6f 27 2c 20 73 70 | 6c 69 74 28 2f 20 2f 2c |foo', sp|lit(/ /,|
|000003d0| 27 61 20 62 20 20 63 27 | 29 2c 20 27 62 61 72 27 |'a b  c'|), 'bar'|
|000003e0| 29 3b 0d 69 66 20 28 24 | 5f 20 65 71 20 22 66 6f |);.if ($|_ eq "fo|
|000003f0| 6f 3a 61 3a 62 3a 3a 63 | 3a 62 61 72 22 29 20 7b |o:a:b::c|:bar") {|
|00000400| 70 72 69 6e 74 20 22 6f | 6b 20 37 5c 6e 22 3b 7d |print "o|k 7\n";}|
|00000410| 20 65 6c 73 65 20 7b 70 | 72 69 6e 74 20 22 6e 6f | else {p|rint "no|
|00000420| 74 20 6f 6b 20 37 20 24 | 5f 5c 6e 22 3b 7d 0d 0d |t ok 7 $|_\n";}..|
|00000430| 23 20 43 61 6e 20 77 65 | 20 73 61 79 20 68 6f 77 |# Can we| say how|
|00000440| 20 6d 61 6e 79 20 66 69 | 65 6c 64 73 20 74 6f 20 | many fi|elds to |
|00000450| 73 70 6c 69 74 20 74 6f | 3f 0d 24 5f 20 3d 20 6a |split to|?.$_ = j|
|00000460| 6f 69 6e 28 27 3a 27 2c | 20 73 70 6c 69 74 28 27 |oin(':',| split('|
|00000470| 20 27 2c 27 31 20 32 20 | 33 20 34 20 35 20 36 27 | ','1 2 |3 4 5 6'|
|00000480| 2c 20 33 29 29 3b 0d 70 | 72 69 6e 74 20 24 5f 20 |, 3));.p|rint $_ |
|00000490| 65 71 20 27 31 3a 32 3a | 33 20 34 20 35 20 36 27 |eq '1:2:|3 4 5 6'|
|000004a0| 20 3f 20 22 6f 6b 20 38 | 5c 6e 22 20 3a 20 22 6e | ? "ok 8|\n" : "n|
|000004b0| 6f 74 20 6f 6b 20 38 20 | 24 5f 5c 6e 22 3b 0d 0d |ot ok 8 |$_\n";..|
|000004c0| 23 20 43 61 6e 20 77 65 | 20 64 6f 20 69 74 20 61 |# Can we| do it a|
|000004d0| 73 20 61 20 76 61 72 69 | 61 62 6c 65 3f 0d 24 78 |s a vari|able?.$x|
|000004e0| 20 3d 20 34 3b 0d 24 5f | 20 3d 20 6a 6f 69 6e 28 | = 4;.$_| = join(|
|000004f0| 27 3a 27 2c 20 73 70 6c | 69 74 28 27 20 27 2c 27 |':', spl|it(' ','|
|00000500| 31 20 32 20 33 20 34 20 | 35 20 36 27 2c 20 24 78 |1 2 3 4 |5 6', $x|
|00000510| 29 29 3b 0d 70 72 69 6e | 74 20 24 5f 20 65 71 20 |));.prin|t $_ eq |
|00000520| 27 31 3a 32 3a 33 3a 34 | 20 35 20 36 27 20 3f 20 |'1:2:3:4| 5 6' ? |
|00000530| 22 6f 6b 20 39 5c 6e 22 | 20 3a 20 22 6e 6f 74 20 |"ok 9\n"| : "not |
|00000540| 6f 6b 20 39 20 24 5f 5c | 6e 22 3b 0d 0d 23 20 44 |ok 9 $_\|n";..# D|
|00000550| 6f 65 73 20 74 68 65 20 | 39 39 39 20 73 75 70 70 |oes the |999 supp|
|00000560| 72 65 73 73 20 6e 75 6c | 6c 20 66 69 65 6c 64 20 |ress nul|l field |
|00000570| 63 68 6f 70 70 69 6e 67 | 3f 0d 24 5f 20 3d 20 6a |chopping|?.$_ = j|
|00000580| 6f 69 6e 28 27 3a 27 2c | 20 73 70 6c 69 74 28 2f |oin(':',| split(/|
|00000590| 3a 2f 2c 27 31 3a 32 3a | 33 3a 34 3a 35 3a 36 3a |:/,'1:2:|3:4:5:6:|
|000005a0| 3a 3a 27 2c 20 39 39 39 | 29 29 3b 0d 70 72 69 6e |::', 999|));.prin|
|000005b0| 74 20 24 5f 20 65 71 20 | 27 31 3a 32 3a 33 3a 34 |t $_ eq |'1:2:3:4|
|000005c0| 3a 35 3a 36 3a 3a 3a 27 | 20 3f 20 22 6f 6b 20 31 |:5:6:::'| ? "ok 1|
|000005d0| 30 5c 6e 22 20 3a 20 22 | 6e 6f 74 20 6f 6b 20 31 |0\n" : "|not ok 1|
|000005e0| 30 20 24 5f 5c 6e 22 3b | 0d 0d 23 20 44 6f 65 73 |0 $_\n";|..# Does|
|000005f0| 20 61 73 73 69 67 6e 6d | 65 6e 74 20 74 6f 20 61 | assignm|ent to a|
|00000600| 20 6c 69 73 74 20 69 6d | 70 6c 79 20 73 70 6c 69 | list im|ply spli|
|00000610| 74 20 74 6f 20 6f 6e 65 | 20 6d 6f 72 65 20 66 69 |t to one| more fi|
|00000620| 65 6c 64 20 74 68 61 6e | 20 74 68 61 74 3f 0d 24 |eld than| that?.$|
|00000630| 66 6f 6f 20 3d 20 60 70 | 65 72 6c 20 2d 44 31 30 |foo = `p|erl -D10|
|00000640| 32 34 20 2d 65 20 22 28 | 5c 24 61 2c 5c 24 62 29 |24 -e "(|\$a,\$b)|
|00000650| 20 3d 20 73 70 6c 69 74 | 3b 22 20 b3 44 65 76 3a | = split|;" .Dev:|
|00000660| 53 74 64 4f 75 74 60 3b | 0d 70 72 69 6e 74 20 24 |StdOut`;|.print $|
|00000670| 66 6f 6f 20 3d 7e 20 2f | 44 45 42 55 47 47 49 4e |foo =~ /|DEBUGGIN|
|00000680| 47 2f 20 7c 7c 20 24 66 | 6f 6f 20 3d 7e 20 2f 6e |G/ || $f|oo =~ /n|
|00000690| 75 6d 5c 28 33 5c 29 2f | 20 3f 20 22 6f 6b 20 31 |um\(3\)/| ? "ok 1|
|000006a0| 31 5c 6e 22 20 3a 20 22 | 6e 6f 74 20 6f 6b 20 31 |1\n" : "|not ok 1|
|000006b0| 31 24 66 6f 6f 5c 6e 22 | 3b 0d 0d 23 20 43 61 6e |1$foo\n"|;..# Can|
|000006c0| 20 77 65 20 73 61 79 20 | 68 6f 77 20 6d 61 6e 79 | we say |how many|
|000006d0| 20 66 69 65 6c 64 73 20 | 74 6f 20 73 70 6c 69 74 | fields |to split|
|000006e0| 20 74 6f 20 77 68 65 6e | 20 61 73 73 69 67 6e 69 | to when| assigni|
|000006f0| 6e 67 20 74 6f 20 61 20 | 6c 69 73 74 3f 0d 28 24 |ng to a |list?.($|
|00000700| 61 2c 24 62 29 20 3d 20 | 73 70 6c 69 74 28 27 20 |a,$b) = |split(' |
|00000710| 27 2c 27 31 20 32 20 33 | 20 34 20 35 20 36 27 2c |','1 2 3| 4 5 6',|
|00000720| 20 32 29 3b 0d 24 5f 20 | 3d 20 6a 6f 69 6e 28 27 | 2);.$_ |= join('|
|00000730| 3a 27 2c 24 61 2c 24 62 | 29 3b 0d 70 72 69 6e 74 |:',$a,$b|);.print|
|00000740| 20 24 5f 20 65 71 20 27 | 31 3a 32 20 33 20 34 20 | $_ eq '|1:2 3 4 |
|00000750| 35 20 36 27 20 3f 20 22 | 6f 6b 20 31 32 5c 6e 22 |5 6' ? "|ok 12\n"|
|00000760| 20 3a 20 22 6e 6f 74 20 | 6f 6b 20 31 32 20 24 5f | : "not |ok 12 $_|
|00000770| 5c 6e 22 3b 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |\n";....|........|
|00000780| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000790| 64 65 72 3a 20 6d 61 67 | 69 63 2e 74 2c 76 20 34 |der: mag|ic.t,v 4|
|000007a0| 2e 30 20 39 31 2f 30 33 | 2f 32 30 20 30 31 3a 35 |.0 91/03|/20 01:5|
|000007b0| 07 73 70 6c 69 74 2e 74 | 02 00 00 00 54 45 58 54 |.split.t|....TEXT|
|000007c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 76 32 |MPS ....|......v2|
|000007d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a5 8c 0c 44 00 00 | 06 f6 00 00 01 ac 7b 22 |.....D..|......{"|
|00000800| 66 6f 6f 22 7d 20 3d 20 | 22 68 69 20 74 68 65 72 |foo"} = |"hi ther|
|00000810| 65 22 3b 27 3b 09 23 20 | 63 68 65 63 6b 20 74 68 |e";';.# |check th|
|00000820| 61 74 20 45 4e 56 20 69 | 73 20 69 6e 69 74 65 64 |at ENV i|s inited|
|00000830| 20 69 6e 73 69 64 65 20 | 65 76 61 6c 0d 69 66 20 | inside |eval.if |
|00000840| 28 60 65 63 68 6f 20 5c | 24 66 6f 6f 60 20 65 71 |(`echo \|$foo` eq|
|00000850| 20 22 68 69 20 74 68 65 | 72 65 5c 6e 22 29 20 7b | "hi the|re\n") {|
|00000860| 70 72 69 6e 74 20 22 6f | 6b 20 31 5c 6e 22 3b 7d |print "o|k 1\n";}|
|00000870| 20 65 6c 73 65 20 7b 70 | 72 69 6e 74 20 22 6e 6f | else {p|rint "no|
|00000880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6c 77 61 |...H..Mo|naco.lwa|
|00000890| 6c 6c 20 4c 6f 63 6b 65 | 64 20 24 0d 0d 70 72 69 |ll Locke|d $..pri|
|000008a0| 6e 74 20 22 31 2e 00 06 | 00 03 00 64 00 1c 01 dd |nt "1...|...d....|
|000008b0| 02 3d 00 64 00 1c 01 dd | 02 3d a6 eb b2 e2 00 00 |.=.d....|.=......|
|000008c0| 05 da 00 00 05 da 00 00 | 02 d7 01 00 00 00 00 1e |........|........|
|000008d0| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|000008e0| 00 00 02 d7 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000900| 62 20 0f cc 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b ......|.>..MPSR|
|00000910| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 03 f0 ff ff 00 00 00 4c | 00 47 95 40 00 00 00 00 |.......L|.G.@....|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+